home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / fb386 / tool / math / soinsu.bas < prev    next >
BASIC Source File  |  1994-05-29  |  358b  |  16 lines
  1. 10 CLS
  2. 20 PRINT "素因数分解の計算　　　　　　　　　　　　　　　　　　　解答時にＰＦ１でメニュー"
  3. 30 INPUT "A=",A
  4. 40 PRINT A"=";
  5. 50 B=2
  6. 60 IF B> SQR(A+1) THEN 130
  7. 70 IF A-INT(A/B)*B=0 THEN 100
  8. 80 B=B+1
  9. 90 GOTO 60 
  10. 100 PRINT B"X";
  11. 110 A=A/B
  12. 120 GOTO 50
  13. 130 PRINT A;
  14. 140 A$=INKEY$:IF A$="" THEN 140
  15. 150 IF A$="1" THEN RUN "MENU.BAS" ELSE GOTO 10
  16.